home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
truetype
/
amimacro.zip
/
PYJNLIST.SMM
< prev
next >
Wrap
INI File
|
1992-12-29
|
6KB
|
346 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
CITIZEN Dot Matrix
[port]
LPT1:
[lang]
1
[desc]
Creates an alphabetical list by Journal Name of articles from Psychlit Searches. List can be used to look up articles.
725677003
17
718841980
150
2
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[l1]
0
[pg]
2
59 0 13 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
78 0 12 1025 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#216,10800>FUNCTION Bibliography()
<:#216,10800>Onerror endit
<:#216,10800>Oncancel endit
<:#216,10800>Darkmode(1)
<:#216,10800>hourglass(1)
<:#216,10800>c=1
<:#216,10800>openfile=GetOpenFileName$()
<:#216,10800>StatusBarMsg("Creating Journal List for {openfile}")
<:#216,10800>Type( "<[>CTRLHome]")
<:#216,10800>Done=Replace(0,0,5,"JN:","")
<:#216,10800>if done = -7
<:#216,10800> goto endit
<:#216,10800>Endif
<:#216,10800>StatusBarMsg("Working on reference # {c}")
<:#216,10800>Type( "<[>Right]<[>SHIFTEnd]" )
<:#216,10800>jn=curshade$()
<:#216,10800>jnt=strfield$(jn,1,";")
<:#216,10800>jnv=strfield$(jn,2,";")
<:#216,10800>jn=strcat$(jnt,".",jnv,". ")
<:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
<:#216,10800>au=curshade$()
<:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>SHIFTEnd]" )
<:#216,10800>ti=curshade$()
<:#216,10800>ref=strcat$(au," ",ti)
<:#216,10800>New("_Biblio.sty" 1 0 )
<:#216,10800>Type( "{openfile}<[>Enter]<[>F4]" )
<:#432,10800>Type( "<[>CTRLUp]<[>CTRLUp]<[>end]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLSHIFTHome]<[>Del]Journal List for <[>Home]<[>SHIFTEnd]" )
<:#216,10800>Title=curshade$()
<:#216,10800>GotoCmd(4 2 2 )
<:#216,10800>Type( "{title}<[>Enter]" )
<:#216,10800>PageNumber("Page " 1 1 "1" )
<:#216,10800>Type( "<[>CTRLEnd]" )
<:#216,10800>Type( "{jn}{ref} (#{c})<[>Enter]" )
<:#216,10800>SaveAs("C:\AMIPRO\SCHOOL\PSYCHLIT\JNlist.SAM" 32 "{title}" "" )
<:#216,10800>StartOfFiles( )
<:#216,10800>NextWindow( )
<:#216,10800>Type( "<[>CTRLpgdn]")
@Function@<:#216,10800>Loop1:
<:#216,10800>Done=Replace(0,0,5,"JN:","")
<:#216,10800>if done = -7
<:#216,10800> goto endit
<:#216,10800>Endif
c=c+1
<:#216,10800>StatusBarMsg("Working on reference # {c}")
<:#216,10800>Type( "<[>Right]<[>SHIFTEnd]" )
<:#216,10800>jn=curshade$()
<:#216,10800>jnt=strfield$(jn,1,";")
<:#216,10800>jnv=strfield$(jn,2,";")
<:#216,10800>jn=strcat$(jnt,".",jnv,". ")
<:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
<:#216,10800>au=curshade$()
<:#216,10800>Type( " " )
<:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>SHIFTEnd]" )
<:#216,10800>ti=curshade$()
<:#216,10800>ref=strcat$(jn,au,". ",ti)
<:#216,10800>NextWindow( )
<:#216,10800>Type("{ref} (#{c})<[>Enter]")
<:#216,10800>StartOfFiles( )
<:#216,10800>NextWindow( )
<:#216,10800>Type( "<[>CTRLpgdn]")
<:#216,10800>goto loop1
@Function@<:#216,10800>saveit:
<:#216,10800>statusBarMsg("Saving JNlist.sam")
<:#216,10800>Type( "<[>CTRLHome]" )
<:#216,10800>NextWindow( )
<:#216,10800>Save()
<:#216,10800>statusBarMsg("Sorting JNlist.sam")
<:#216,10800>Replace(0 0 9221 "Vol" "Vol." )
<:#216,10800>Type( "<[>Down]<[>Home]<[>CTRLSHIFTEnd]" )
<:#216,10800>Sort(1 3 4 1 46 4443 )
<:#216,10800>Type( "<[>CTRLHome]" )
<:#216,10800>statusBarMsg("Saving JNlist.sam")
<:#216,10800>Save()
@Function@<:#216,10800>Endit:
<:#216,10800>statusBarMsg("")
<:#216,10800>darkmode(0)
<:#216,10800>hourglass(0)
<:#216,10800>END FUNCTION
>
[Embedded]
00003955
>
[macsum] 1
Bibliography 0 0 11 0
[macse]
14 Bibliography
20 00001579
19 00001579
0 292 1
0 296 1
5 1
8 1
0 267
13
8 2
0 789 "Creating Journal List for {2}"
0 6 "[16420]"
2 488 1 0 0 5 "JN:" ""
13
8 3
6 3
5 -7
18 0
11 00000217
10 00001579
0 789 "Working on reference # {1}"
0 6 "[39][4131]"
0 24
13
8 4
0 20 "{4}" 1 ";"
13
8 5
0 20 "{4}" 2 ";"
13
8 6
0 16 "{5}" "." "{6}" ". "
13
8 4
0 6 "[36][16422][16422][16423][16423][20520]"
0 24
13
8 7
0 6 "[36][16422][16423][16423][4131]"
0 24
13
8 8
0 16 "{7}" " " "{8}"
13
8 9
2 101 1 "_Biblio.sty" 1 0
0 6 "{2}[13][115]"
0 6 "[16422][16422][35][16421][16421][16421][20516][46]Journal List for [36][4131]"
0 24
13
8 10
2 452 1 4 2 2
0 6 "{10}[13]"
2 356 1 "Page " 1 1 "1"
0 6 "[16419]"
0 6 "{4}{9} (#{1})[13]"
2 104 1 "C:\AMIPRO\SCHOOL\PSYCHLIT\JNlist.SAM" 32 "{10}" ""
2 528 1
2 727 1
0 6 "[16418]"
2 488 1 0 0 5 "JN:" ""
13
8 3
6 3
5 -7
18 0
11 00000939
10 00001579
6 1
5 1
3 0
8 1
0 789 "Working on reference # {1}"
0 6 "[39][4131]"
0 24
13
8 4
0 20 "{4}" 1 ";"
13
8 5
0 20 "{4}" 2 ";"
13
8 6
0 16 "{5}" "." "{6}" ". "
13
8 4
0 6 "[36][16422][16422][16423][16423][20520]"
0 24
13
8 7
0 6 " "
0 6 "[36][16422][16423][16423][4131]"
0 24
13
8 8
0 16 "{4}" "{7}" ". " "{8}"
13
8 9
2 727 1
0 6 "{9} (#{1})[13]"
2 528 1
2 727 1
0 6 "[16418]"
10 00000863
0 789 "Saving JNlist.sam"
0 6 "[16420]"
2 727 1
2 103 1
0 789 "Sorting JNlist.sam"
2 488 1 0 0 9221 "Vol" "Vol."
0 6 "[40][36][20515]"
2 456 1 1 3 4 1 46 4443
0 6 "[16420]"
0 789 "Saving JNlist.sam"
2 103 1
0 789 ""
0 292 0
0 296 0
6 0
15
9
00003980